home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1991 March
/
1991-03.d64
/
metallix demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
65 lines
0 clr
10 rem copyright 1991 compute publications intl ltd - all rights reserved
20 poke53280,0:poke53281,0:print"[147]"tab(9)"loading metallix. . . ."
30 poke147,0:sys57812"metallix.obj",8,1:sys62631
40 fort=8192to8320:readx:poket,x:next
50 v=53248:pokev+23,255:pokev+29,0:pokev+28,255
60 fort=v+39tov+46:poket,15:next:pokev+37,12:pokev+38,11
70 x=139:fort=vtov+6step2:poket,x:x=x+24:next
80 x=139:fort=v+8tov+14step2:poket,x:x=x+24:next
90 fort=v+1tov+7step2:poket,63:next:fort=v+9tov+15step2:poket,105:next
100 fort=2040to2046step2:poket,128:next:fort=2041to2047step2:poket,129:next
110 c1=11:c2=15:c3=1:c4=7:c5=10:c6=8:c7=2
120 sys51720,0,0:poke53265,11:fordl=1to1000:next:pokev+21,255:ford=1to10:next
130 poke53265,27:print""tab(13)"m e t a l l i x"
140 print""
145 a$="copyright 1991":gosub501:a$="compute publications intl ltd":gosub501
150 a$="all rights reserved":gosub501
160 sys51890,c1,c2,c3,c4,c5,c6,c7,20:sys51720,0,0:gosub520
170 print""tab(2)"add a metallic luster to your video"
180 printtab(2)"with this elite metal shading effect"
190 sys51890,c1,c2,c3,c4,c5,c6,c7,50:sys51720,0,0:gosub520
200 print""tab(3)"this new graphics mode displays a"
210 printtab(3)"vertical color resolution of seven"
220 printtab(2)"colors per character, an independent"
230 printtab(1)"hue for each raster line on the screen!"
240 sys51890,c1,c2,c3,c4,c5,c6,c7,50:sys51720,0,0:gosub520
250 print""tab(10)"done with innovative"
260 printtab(7)"raster programming, this is"
270 printtab(4)"the best vertical color resolution"
280 printtab(11)"possible on the 64"
290 sys51890,c1,c2,c3,c4,c5,c6,c7,50:sys51720,0,0:gosub520:pokev+21,255
300 print""tab(8)"complete with a video fade"
310 printtab(19)"and"
320 printtab(10)"combined with sprites"
330 printtab(5)"64 graphics never looked so good!"
340 sys51890,c1,c2,c3,c4,c5,c6,c7,50:pokev+21,0:sys51720,0,0:gosub520
350 print""tab(4)"the commands"
360 printtab(4)"sys 51720,bord,back"
370 printtab(6)"clears the screen and sets the"
380 printtab(6)"border and background colors."
390 printtab(4)"sys 51890,c1,c2,c3,c4,c5,c6,c7,[dur]"
400 printtab(6)"selects the 7 character colors."
410 printtab(6)"the last parameter is optional"
420 printtab(6)"and selects the display duration."
430 printtab(6)"if omitted the display is"
440 printtab(6)"stopped with the space bar."
450 sys51890,c1,c2,c3,c4,c5,c6,c7,50:gosub520
460 z=z+1:ifz>2thenz=0
470 ifz=0thenc1=11:c2=15:c3=1:c4=7:c5=10:c6=8:c7=2
480 ifz=1thenc1=12:c2=15:c3=1:c4=7:c5=10:c6=8:c7=2
490 ifz=2thenc1=15:c2=1:c3=7:c4=10:c5=8:c6=2:c7=9
500 sys51720,0,0:pokev+21,255:goto130
501 for xz=1 to (20-int(len(a$)/2)):print" ";:next:printa$:return
510 rem delay sub
520 fordl=1to50:next:return
530 rem sprite data
540 data42,170,170,37,85,87,37,85,87,38,170,151,38,170,183,38,170,183
550 data38,191,247,38,181,87,38,181,87,38,170,87,38,170,215,38,170,215
560 data38,191,215,38,181,87,38,181,87,38,170,151,38,170,183,38,170,183
570 data37,255,247,37,85,87,47,255,255,0,42,170,170,37,85,87,37,85
580 data87,38,170,151,38,170,183,38,170,183,38,170,183,38,190,183,38,182
590 data183,38,182,183,38,182,183,38,182,183,38,182,183,38,182,183,38,182
600 data183,38,182,183,38,182,183,37,245,247,37,85,87,37,85,87,47,255
610 data255,42,64